Top 10k strings from Spectrum Database (1984)(Gemini Marketing).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 vt,ht;z$(1
   2 t$(i);" ";f$(i):
   2 e(nf))=m$(1
   2 e(nf))=d$(j,1
   2 e(nf))=d$(j+1
   1 vt,ht;s$;"  ":
   1 vt,ht;f$(f);" "
   1 vt,ht+ic;" ":
   1 vt,ht+ic;"
   1 vt,ht+ic-1
   1 s$=s$+".":
   1 i$="16140120":
   1 i$="14150221":
   1 i$="13160165":
   1 i$="12200221":
   1 i$="10170965":
   1 i$="06200111":
   1 i$="04200321":
   1 i$="02200321":
   1 i$="02200111":
   1 i$="02170221":
   1 i$="02140321":
   1 i$="02080321":
   1 i$="00151011":
   1 f$(i)=d$(re)(s(i)
   1 e(o))>d$(j+1
   1 e(i)=x+l(i):
   1 e(i)-s(i)+1
   1 e(i))=f$(i)(1
   1 d$(re,s(i)
   1 by,tx;b$(1
   1 \;{>{`xQ{@{@{@{
   1 Record#";re;"
   1 Record #";re;"
   1 John Smith255000  Ian Smith 194680  Ray Davis 4510000 Roy Jones 328000  Sue Fisher236000  Joan Smith477500
   1 DATABASE  o
   1 Change a record
   1 Add a record
   1 ;t$(i);" ";f$(i):
   1 ;"total of field ";f:
   1 ;"You may choose from these:-":
   1 ;"Which field "
   1 ;"Version 9/84":
   1 ;"Type    Length":
   1 ;"Total which field?"
   1 ;"Spectrum Database":
   1 ;"Select Option"
   1 ;"START RECORD":
   1 ;"Record#":
   1 ;"RECORD#";re:
   1 ;"HOW MANY FIELDS?":
   1 ;"1. Add a Record to File","2. Change a Record","3. Delete a Record","4. Find/Sort Records","5. List/Print Records","6. Total Items by Field","7. Create a New File","8. Save File",,"9. Exit Program":
   1 ;" Save to Microdrive or Cassette"
   1 ;" RECORDS REMAINING"
   1 ;" RECORDS ON FILE";
   1 ;" Enter filename -":
   1 "Search key ":
   1 "SYSTEM CLOSED":
   1 "Record number ":
   1 "RECORD#";re:
   1 "FILE FULL":
   1 "END RECORD":
   1  Salary    
   1  1984 Gemini Marketing Ltd.":